<%

	'Posee las variables q viajan a traves de los Asps
	Dim sQueryString
	Dim sParLoginUsrId
	Dim sParEditUsrId
	Dim sParEditUsrFullName
	Dim sParEditAction
	Dim sParEditType
	Dim sParError
	Dim sParEditOrgId
	Dim sParEditOrgUoId
	Dim sParEditProfId
	Dim sParEditSvcId
	Dim sParSelFormAction
	
	'- Obtiene los valores	
	sQueryString		= ""
	
	'- Arma los parametros a ser usados en la pagina para los llamados posteriores
	'=======================================================================================
		'- Login User Id
			sParLoginUsrId = Request("LoginUsrId")
			if sParLoginUsrId <> "" then
				sQueryString = AddParam(sQueryString, "LoginUsrId", Server.URLEncode(sParLoginUsrId))
			end if	
	
		'- Edit User Id
			sParEditUsrId = Request("EditUsrId")
			if sParEditUsrId <> "" then
				sQueryString = AddParam(sQueryString, "EditUsrId", Server.URLEncode(sParEditUsrId))
			end if

		'- Edit User Full Name
			sParEditUsrFullName = Request("EditUsrFullName")
			if sParEditUsrFullName <> "" then
				sQueryString = AddParam(sQueryString, "EditUsrFullName", Server.URLEncode(sParEditUsrFullName))
			end if			

		'- Edit Action
			sParEditAction=Request("EditAction")
			if sParEditAction <> "" then
				sQueryString = AddParam(sQueryString, "EditAction", Server.URLEncode(sParEditAction))
			end if

		'- Edit Type
			sParEditType=Request("EditType")
			if sParEditType <> "" then
				sQueryString = AddParam(sQueryString, "EditType", Server.URLEncode(sParEditType))		
			end if

		'- Error
			sParError=Request("EditError")
			if sParError <> "" then
				sQueryString = AddParam(sQueryString, "EditError", Server.URLEncode(sParError))				
			end if

		'- Organization Id
			sParEditOrgId=Request("EditOrgId")
			if sParEditOrgId <> "" then
				sQueryString = AddParam(sQueryString, "EditOrgId", Server.URLEncode(sParEditOrgId))				
			end if
			
		'- Operational Unit Id
			sParEditOrgUoId=Request("EditOrgUoId")
			if sParEditOrgId <> "" then
				sQueryString = AddParam(sQueryString, "EditOrgUoId", Server.URLEncode(sParEditOrgUoId))				
			end if						

		'- Profile Id
			sParEditProfId=Request("EditProfId")
			if sParEditProfId <> "" then
				sQueryString = AddParam(sQueryString, "EditProfId", Server.URLEncode(sParEditProfId))				
			end if
			
		'- Service Id
			sParEditSvcId=Request("EditSvcId")
			if sParEditSvcId <> "" then
				sQueryString = AddParam(sQueryString, "EditSvcId", Server.URLEncode(sParEditSvcId))				
			end if			

		'- Action del Form de Seleccion
			sParSelFormAction=Request("SelFormAction")
			if sParSelFormAction <> "" then
				sQueryString = AddParam(sQueryString, "SelFormAction", Server.URLEncode(sParSelFormAction))				
			end if
			
	'=======================================================================================

'=======================================================================================
'	Agrega un parametro al Query String
'=======================================================================================
Function AddParam(pQS, pParam, pValue) 'as String

	'- por las dudas borra primero el parametro
	pQS=DelParam(pQS, pParam)
		
	'- Valido el concatenador de parametros
	If InStr(pQS, "?") > 0 then 
		pQS = pQS & "&"
	else
		pQS = pQS & "?"
	end if
		
	'- Agrego el parametro
	pQS = pQS & pParam & "=" & pValue
	'- Retorno el QueryString
	AddParam = pQS
		
End Function

'=======================================================================================
' Borra un parametro del Query String
'=======================================================================================
Function DelParam(pQS, pParam) 'as String
  
Dim iBegin
Dim iEnd
Dim iLen
Dim sRep
  
  '- Busco el parametro
  iBegin = InStr(pQS, pParam)
  If iBegin > 0 Then
  
    iEnd = Len(pQS)
    If InStr(iBegin, pQS, "&") > 0 Then
      iEnd = InStr(iBegin, pQS, "&")
    End If
    iLen = (iEnd - iBegin) + 1
    If iLen > 0 Then
    
      sRep = Mid(pQS, iBegin, iLen)
      '- Borro el parametro
      pQS = Replace(pQS, sRep, "")
      
    End If
    
    '- Valida si termina en &
    If Right(pQS, 1) = "&" Then
      pQS = Left(pQS, Len(pQS) - 1)
    End If
    
    '- Valida si es 1 solo caracter = ?
    If Len(pQS) = 1 And pQS = "?" Then
      pQS = ""
    End If
    
  End If
  '- Retorno el QueryString
  DelParam = pQS
  
End Function



	
%>